\(\(\( (*Вращательное\ движение*) \)\(
\)\(om = {omX[t], omY[t], omZ[t]}\)\)\)

\(\(\( (*Производная\ от\ вращательного\ движения\ по\ времени*) \)\(
\)\(om' = D[om, t]\)\)\)

TableForm[
      in = {{ixx, ixy, 0}, {iyx, iyy, 0}, {0, 0, izz}}]

TableForm[vK = in . om]

TableForm[
      vK' = in . om']

TableForm[
      omK = Cross[om, vK]]

TableForm[
      dvdLA = vK' + omK]

TableForm[
      mom = {mX, mY, mZ}]

d = 
      TableForm[
        Table[dvdLA[[i]] == mom[[i]], {i, 1, 
            3}]]